*******************************************************
*******************************************************
*******************************************************
*** CREATED BY JONATHAN KING AND JESSICA SCHOENHERR ***
***** REPLICATION DATA FOR "A MATTER OF OPINION?" *****
*******************************************************
*******************************************************
*******************************************************


use "DeathPenaltyDataPart2-20221022.dta"

reg decisionTherm ib10.treatmentGroup##ib2.partisanship##i.female
est store dpFull2

est restore dpFull2
margins, at(treatmentGroup=(6(1)10) partisanship=(2) female=(0(1)1))

est restore dpFull2
margins, dydx(female) at(treatmentGroup=(10) partisanship=(2))

est restore dpFull2
margins, dydx(partisanship) at(treatmentGroup=(10) female=(1))

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(7) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(8) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(9) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(7) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(8) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(7) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(9) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(7) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(8) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(9) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(8) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(9) partisanship=(2) female=(0)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(0)) post
test _b[1._at] = _b[2._at]
***
***
est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(7) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(8) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(9) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(6) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(7) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(8) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(7) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(9) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(7) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(8) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(9) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(8) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]

est restore dpFull2
margins, at(treatmentGroup=(9) partisanship=(2) female=(1)) ///
	at(treatmentGroup=(10) partisanship=(2) female=(1)) post
test _b[1._at] = _b[2._at]







